(gnus-article-display-xface): Skip over previously

inserted images.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index aa08e0f922d8b178ec14c1da42f9ed4e627923b2..e16c3bd337d01be468821c61d689baa4988cdfed 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2001-09-27  Gerd Moellmann  <gerd@gnu.org>
+
+       * gnus-ems.el (gnus-article-display-xface): Skip over previously
+       inserted images.
+
 2001-09-19  Sam Steingold  <sds@gnu.org>
 
        * gnus-win.el (gnus-buffer-configuration): Respect

diff --git a/lisp/gnus/gnus-ems.el b/lisp/gnus/gnus-ems.el
index d668d5c056f5c05ef4da3e9da41da7bd56cccfd2..ba4ecfefcac7dc58f98930b95e9e8a153d3819b5 100644 (file)
--- a/lisp/gnus/gnus-ems.el
+++ b/lisp/gnus/gnus-ems.el
@@ -272,6 +272,8 @@ for XEmacs."
        (when image
          (goto-char (point-min))
          (re-search-forward "^From:" nil 'move)
+         (while (get-text-property (point) 'display)
+           (goto-char (next-single-property-change (point) 'display)))
          (insert-image image))))))
 
 (provide 'gnus-ems)